補充已下列解決問題
http://ithelp.ithome.com.tw/question/10002871
透過 WMI Script 找出 now 與 lastbootuptime 相比較 得知 電腦這次已經開機多久時間
下列程式存成 *.vbs檔 直接執行即可 得出下列結果
Boot Time: 2008/5/29 上午 08:54:14
System Uptime = 0 Day(s) 3 Hour(s) 59 Mins(s)

strComputer = "."
Set dtmInstallDate = CreateObject( _
"WbemScripting.SWbemDateTime")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
strTemp=objOperatingSystem.lastbootuptime
'wscript.echo objOperatingSystem.lastbootuptime
wscript.echo "Boot Time: " & getmydat (objOperatingSystem.lastbootuptime)
Next

' Get the last boot date/time
'strTemp = objItem.LastBootUpTime
dtBoot = CDate(Mid(strTemp, 5, 2) & "/ " & Mid(strTemp, 7, 2) & "/" & _
Mid(strTemp, 1, 4) & " " & Mid(strTemp, 9, 2) & ":" & _
Mid(strTemp, 11, 2) & ":" & Mid(strTemp, 13, 2))

' Adjust boot date/time for current time zone
dtBoot = DateAdd("h", 0, dtBoot)

' Determine uptime
intMins = DateDiff("n", dtBoot, Now)
intDays = intMins \ 1440
intMins = intMins Mod 1440
intHours = intMins \ 60
intMins = intMins Mod 60

WScript.Echo "System Uptime = " & _
intDays & " Day(s) " & _
intHours & " Hour(s) " & _
intMins & " Mins(s) "

Function getmydat(wmitime)
dtmInstallDate.Value = wmitime
getmydat = dtmInstallDate.GetVarDate
End function